home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / PowerMacOberon 1.2 / System / Kepler9.Sym < prev    next >
Encoding:
Text File  |  1994-09-15  |  2.4 KB  |  7 lines  |  [TEXT/.Ob4]
  1. ˜ã›Ã∂Kepler9CircleInterÜõ¬∂KeplerGraphs |ObjectDesc
  2. Object¸{selfÇ„„‡KeplerPortsPort˚{P Draw
  3. ¸{selfıñ≥Filesreseof tRider˚{R Read
  4. ¸{self˚{R WritexyrefcntselStar next xStarDesc
  5. ¸{self˚{P Draw
  6. ¸{self˚{R Read
  7. ¸{self˚{R WriteConstellationc lPlanetDesc
  8. Planet¸{self Calc
  9. ¸{self˚{P Draw
  10. ¸{self˚{R Read
  11. ¸{self˚{R Writesign |CircleIntersection
  12. ¸{self Calc
  13. ¸{self˚{r Read
  14. ¸{self˚{r WriteCircleLineIntersign xCircleLineIntersection
  15. ¸{self Calc
  16. ¸{self˚{r Read
  17. ¸{self˚{r WriteExtension tExtensionDesc
  18. ¸{self CalcIntersection p   IntersectionDesc
  19. ¸{self  Calc!Parallel l"""ParallelDesc
  20. !¸{self "Calc#RightAngle h$$$RightAngleDesc
  21. #¸{self $Calc%Tangentsign d&&&TangentDesc
  22. %¸{self &Calc
  23. %¸{self˚{r &Read
  24. %¸{self˚{r &Write
  25.      NewCircleIntersection
  26. 
  27. NewCircleLineIntersect
  28.  NewExtension
  29.  NewLineIntersection
  30. 
  31. NewParallel
  32.  NewRightAngle
  33.  NewTangentܵàflDisplay'Frame'dsc'nextX
  34. Y WH
  35. '¸{f x((FrameMsg(˚{msg     )Handler)handle t**FrameDescx0y0scale ext *$|++ +PortDesc
  36. ¸{P˚{x+CX
  37. ¸{P˚{y+CY
  38. ¸{P˚{X+Cx
  39. ¸{P˚{Y+Cy
  40. ¸{P˚{x˙{y˘{r¯{col˜{mode +DrawCircle
  41. ¸{P˚{x˙{y˘{a¯{b˜{colˆ{mode +DrawEllipse
  42. ¸{P˚{x1˙{y1˘{x2¯{y2˜{colˆ{mode +DrawLine
  43. ¸{P˚{x˙{y˘{w¯{h˜{colˆ{mode +DrawRect
  44. ¸{P˚{x˙{y ,˘{sêØâflFonts-Font-˜{fontˆ{colı{mode +    DrawString
  45. ¸{P˚{x˙{y˘{r¯{col˜{patˆ{mode +    
  46. FillCircle
  47. ¸{P˚{x1˙{y1˘{x2¯{y2˜{x3ˆ{y3ı{x48y4<col¿patƒmode +
  48. FillQuad
  49. ¸{P˚{x˙{y˘{w¯{h˜{colˆ{patı{mode + FillRect+nofpts
  50. .pnext t///ConsDesc
  51. ¸{self˚{R /Read
  52. ¸{self/State
  53. ¸{self˚{R /    Write/ !"#$%&'*
  54.  0Name0name height"minX$maxX&minY(maxY1Font1,raster0 4|22FontDesc-2 |33Bytes13